Load Packages
library(dplyr)
library(tidyverse)
library(ggplot2)
library(janitor)
library(lubridate)
library(tidymodels)
library(httr)
library(jsonlite)
library(sf)
library(tmap)
Load Data
raw_sr_data <- read.csv("SR_data.csv") %>%
clean_names()
Just ADK
raw_adk_data <- raw_sr_data %>%
filter(incident_adirondack_park == "true")
All Data Map
raw_sr_map <- raw_sr_data[complete.cases(raw_sr_data), ] %>%
# select(location_found_latitude,location_found_longitude) %>%
st_as_sf(coords = c("location_found_longitude", "location_found_latitude"), crs = 4326)
tm_shape(raw_sr_map) +
# tm_borders() +
# tm_shape(adk_geom_data) +
tm_dots(size=0.02,col="red", alpha = 0.5) + tm_legend(outside = TRUE) #tm_text("Locations of Incidents in New York State that Required Ranger Assistance")